﻿Module Module1

    Sub Main()
        Dim key As String
        key = DateTime.Now.Millisecond.ToString

        Console.WriteLine("Here is your key " & key)

        Dim s As String = Console.ReadLine()


        If String.Equals(s, key) Then
            Console.WriteLine("Key is correct")
        Else
            Console.WriteLine("Key is wrong")

        End If
        Console.Read()
    End Sub

End Module
